home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.19990725-20000114 / 000401_news@columbia.edu _Sat Jan 1 17:52:30 2000.msg < prev    next >
Internet Message Format  |  2020-01-01  |  14KB
  1. Return-Path: <news@columbia.edu>
  2. Received: from newsmaster.cc.columbia.edu (newsmaster.cc.columbia.edu [128.59.59.30])
  3.     by watsun.cc.columbia.edu (8.8.5/8.8.5) with ESMTP id RAA18101
  4.     for <kermit.misc@watsun.cc.columbia.edu>; Sat, 1 Jan 2000 17:52:29 -0500 (EST)
  5. Received: (from news@localhost)
  6.     by newsmaster.cc.columbia.edu (8.8.5/8.8.5) id RAA03985
  7.     for kermit.misc@watsun.cc.columbia.edu; Sat, 1 Jan 2000 17:45:28 -0500 (EST)
  8. X-Authentication-Warning: newsmaster.cc.columbia.edu: news set sender to <news> using -f
  9. From: not-2-disclose@the.net
  10. Subject: MS-DOS Kermit, more capabalities
  11. Message-ID: <010100173225not-2-disclose@the.net>
  12. Date: Sat, 01 Jan 2000 22:45:24 GMT
  13. Organization: Sympatico
  14. To: kermit.misc@columbia.edu
  15.  
  16. Hi everybody,
  17.  
  18. I introduce myself, i'm a DOS_InterNet user and spent about the last two
  19. years lurking/participating to the same-name echo of the `FidoNet'
  20. amateur messaging network.
  21.  
  22. Since the last four years or so i looked for DOS INet FreeWare/ShareWare
  23. programs in hope that i'd get my hands on some piece of software which
  24. can be run even on a minimum setup, meaning:
  25.  
  26. - 8088 4,77 Mhz ~CPU~
  27. - 640 Kb ~RAM~ memory (512 Kb if possible!)
  28. - No Hard-Disk
  29. - Two 5.25"/360 Kb diskette drives or a single 3.5"/720 Kb unit
  30. - A crude 8250 ~UART~ serial-port
  31. - A V.42Bis MoDem or better (i tied up an external 56K MoDem to a 8088!)
  32. - DOS v3.3 (v3.0 compatibility would be fine but not required)
  33.  
  34. [...]
  35.  
  36. I have three topics in mind today:
  37.  
  38.  
  39. *1*
  40.  
  41. I am trying to have some working `ZMoDem' and/or `Kermit' file transfer
  42. protocols for when accessing ~TelNet~ BBSes.  To upgrade the hardware or
  43. to switch to protocols like ~FTP~/~HTTP~ *IS NOT* an option.  `MS-Kermit
  44. v3.16' is the best thing i seen, so far.  It can outperform practically
  45. any DOS ~BIOS INT-14~ and/or ~FOSSIL~-capable terminal emulator i could
  46. find because it INTEGRATES the packet-driver interface, AND the ~TelNet~
  47. protocol as well...  Most unfortunately, `Kermit' doesn't included the
  48. `ZMoDem' file transfer protocol (with control-character escaping & all);
  49. making it less than "complete", somewhat.  I would welcome postings from
  50. people who happen to be doing fine `ZMoDem'/`Kermit' transfers using no
  51. more than the minimum setup i described above.  I tried a lot of packet
  52. drivers and ~TelNet~ "shims" but nothing goes beyond D/L cps rates of a
  53. mere 9k6/19K2 bps connection.  If only i were able to DownLoad some .ZIP
  54. files at over 1K cps or so using a ~TelNet~ "shim" that can be "shared"
  55. between `Kermit' and an external `ZMoDem' protocol, euh...  i guess that
  56. would be a good enough.  Any idea?!  I saw fragmented informations about
  57. the DOS Novell ~NASI~ v3.03k interface, what about it?  :^o  I tried all
  58. these ~TelNet~ "shims" so far:  `INT14', `Net14', `TCPPort', `TelAPI',
  59. `TNGlass' (`RLFossil' too but it's not for 8088/8086 machines)...  Isn't
  60. there any MS-DOS `Kermit' update in preparation that will offer `ZMoDem'
  61. file transfer capability?!  8^o
  62.  
  63.  
  64. *2*
  65.  
  66. I discovered that i could access my ~POP3~ server on ~IP~ port #25 but
  67. `Kermit' is the only program not to allow me such access if i try!  Why?
  68.  
  69.  
  70. *3*
  71.  
  72. In the same way that i found ~TelNet~ can be made usefull for doing a
  73. lot of InterNet stuff, i have written a small set of `Kermit' scripts to
  74. read the ~News Groups~ "On-Line".  The problem here is that my postings
  75. are reformated somehow and i also have trouble with some kind of "memory
  76. low" error (too many routines accumulate or something like that).  Would
  77. somebody be kind enough to look at the following set of macros and tell
  78. me what i'm doing wrong???  So far, i already found that some characters
  79. pose a problem when found at the end of the line;  "dash" is one...
  80.  
  81. :::::::::::::::::::::::::::::::::::::::::::::::::::::::[ MSKermit.INI ]:
  82. CLS
  83. SET FILE TYPE BINARY
  84. SET FILE COLLISION RENAME                ; or APPEND
  85. ;SET FILE COLLISION NO-SUPERSEDE         ; is this prone to the Y2K bug?
  86. SET PARITY NONE
  87. SET BLOCK-CHECK-TYPE 3
  88. SET RECEIVE PACKET-LENGTH 6608
  89. SET WINDOW 5                             ; or 32 (max.)
  90. SET LOCAL OFF
  91. SET PROMPT Kermit>
  92. SET TERM ANSI
  93. SET TERM CURSOR BLOCK
  94. SET DISPLAY REGULAR 8-BIT
  95. ;
  96.  
  97. ; TCP/IP - TelNet section
  98. ;
  99. SET TCP/IP PACKET-DRIVER-INTERRUPT \x60  ; or ODI if `LWP4DOS' instead?
  100. ;
  101. SET CONTROL UNPREFIXED ALL               ; It's to enhance the D/Ls.
  102. SET CONTROL PREFIXED 0 1 129             ;
  103. ;
  104. SET FLOW NONE                            ; Because TCP/IP is used...
  105. ;
  106. ; N.B.:
  107. ;
  108. ; Using ∩┐╜ BOOTP ∩┐╜ via `EPPPD' should work but sometimes it doesn't;  so,
  109. ; i found that a few DOS environement variables can be helpfull here...
  110. ;
  111. SET TCP/IP ADDRESS \$(MYIP)              ; Those DOS environement
  112. SET TCP/IP GATEWAY \$(REMIP)             ;  variables are defined thru
  113. SET TCP/IP SUBNETMASK \$(NETMASK)        ;  IP-UP.BAT (made by `EPPPD').
  114. SET TCP/IP DOMAIN \$(DOMAIN)             ; Some more DOS environement
  115. SET TCP/IP PRIMARY-NAMESERVER \$(DNS1)   ;  variables need be defined in
  116. SET TCP/IP SECONDARY-NAMESERVER \$(DNS2) ;  YOUR own .BAT command-file.
  117. ;
  118.  
  119. ; Syntaxt:  "News"
  120. ;           "News comp.protocols.kermit.misc"
  121. ;           "News demon.ip.support.pc capture.log"
  122. ;
  123. ; N.B.:  a) 4 of the NG macro-keys are located on the NUMERICAL keypad.
  124. ;        b) Some older hardware may have to use different scan-codes;
  125. ;           the "SET KEY" command helps finding a scan-code replacement,
  126. ;           the same may be true of the 4 other macro-key combinations.
  127. ;
  128. DEF News SET PORT TCP/IP news1.qc.sympatico.ca 119 VT100, - ; ~NNTP~
  129. SET TELNET TERM-TYPE VT100, PAUSE 0, IF FAIL END, -         ; server.
  130. IF NOT DEF \%1 DEF \%1 demon.ip.support.pc, -            ; Default
  131. ASSIGN _Group \%1, -                                     ; News Group.
  132. :ChkGroup, ECHO News Group:  \M(_Group)\10, -            ; Validate the
  133. ASK _Reply {Is this correct? }, -                        ; News Group
  134. IF EQU {\FSUBSTR(\M(_Reply),1,1)} {Y} GOTO GotGroup, -   ; with user's
  135. ASK _Group {News Group: }, GOTO ChkGroup, -              ; acknowledge.
  136. :GotGroup, -                                             ; News Group
  137. DEF _LogFile News.CAP, -                                 ; is OKay, set
  138. IF DEF \%2 ASSIGN _LogFile \%2, -                        ; log (capture)
  139. PAUSE 1, OUTPUT Group \M(_Group)\13, CONNECT             ; file-name.
  140. ;
  141. SET KEY \330 \KLast       ; Press the num. [Minus] key   ; Show previous
  142. DEF Last IF DEF _Group OUTPUT Last\{13}Head\13, -        ; article
  143. IF NOT DEF _Group OUTPUT \45, CONNECT                    ; heading.
  144. ;
  145. SET KEY \334 \KNext       ; Press the num. [Plus] key    ; Show next
  146. DEF Next IF DEF _Group OUTPUT Next\{13}Head\13, -        ; article
  147. IF NOT DEF _Group OUTPUT \43, CONNECT                    ; heading.
  148. ;
  149. SET KEY \4365 \KBody      ; Press the num. [Enter] key   ; Read
  150. DEF Body IF DEF _Group OUTPUT Body, OUTPUT \13, CONNECT  ; the article.
  151. ;
  152. SET KEY \338 \KGetNews    ; Press the num. [Insert] key  ; Save article:
  153. DEF GetNews IF NOT DEF _Group GOTO SkipSave,-            ; the heading
  154. LOG SESSION \M(_LogFile) APPEND, -                       ; and the text
  155. OUTPUT Article\13, INPUT 3600 \13\{10}.\13\10, -         ; to log-file.
  156. CLOSE SESSION, -                                         ; Press a key
  157. :SkipSave, IF NOT DEF _Group OUTPUT \338, CONNECT        ; to quit.
  158. ;
  159. SET KEY \2351 \KView      ; Press the [Alt]+[V] keys     ; Run external
  160. DEF View RUN List.COM, CONNECT                           ; viewer.
  161. ;
  162. SET KEY \2322 \KEdit      ; Press the [Alt]+[E] keys     ; Run external
  163. DEF Edit RUN Edit.EXE, CONNECT                           ; editor.
  164. ;
  165. SET KEY \2329 \KPost      ; Press the [Alt]+[P] keys     ; Write & post
  166. DEF Post IF NOT DEF _EMail GOTO GetAddr, -               ; an article.
  167. :ChkAddr, ECHO E-Mail address:  \M(_EMail)\10, -         ; Get E-Mail
  168. ASK _Reply {Is this correct? }, -                        ; address and
  169. IF EQU {\FSUBSTR(\M(_Reply),1,1)} {Y} GOTO AddrOK, -     ; validate by
  170. :GetAddr, ASK _EMail {E-Mail address: }, GOTO ChkAddr, - ; acknowledge.
  171. :AddrOK, ASSIGN _Year$ \FSUBSTR(\V(NDate),5,2)-          ; Prepare the
  172. \FSUBSTR(\V(NDate),7,2)\FSUBSTR(\V(NDate),3,2), -        ; header's
  173. ASSIGN _NTime$ \FSUBSTR(\V(Time),1,2)-                   ; data.
  174. \FSUBSTR(\V(Time),4,2)\FSUBSTR(\V(Time),7,2), -          ;
  175. OPEN WRITE EMail.TXT, WRITE FILE From: \M(_EMail), -     ; Write the
  176. WRITE FILE \13\{10}Date: \V(Date) \V(Time) EST-          ; new article's
  177. \13\10, WRITE FILE Newsgroups: \M(_Group)\13\10, -       ; header and
  178. WRITE FILE Subject:\13\10, WRITE FILE Message-ID: -      ; footer.
  179. <\M(_Year$)\M(_NTime$)\M(_EMail)>\13\10\13\10-           ;
  180. \13\10.\13\10, CLOSE WRITE, RUN Edit.EXE EMail.TXT, -    ; Edit message.
  181. OUTPUT Post\13, PAUSE 2, ASCII Email.TXT, CONNECT        ; Send message.
  182.  
  183. SET KEY \2334 \KASCII     ; Press the [Alt]+[A] keys     ; ASCII UpLoad.
  184. DEF ASCII IF NOT DEF \%1 GOTO GetFName, -                ; Verify that a
  185. ASSIGN _FName \%1, GOTO FNameOK, -                       ; file-name was
  186. :ChkFName, ECHO File to send:  \M(_FName)\10, -          ; given and get
  187. ASK _Reply {Is this correct? }, -                        ; one if it was
  188. IF EQU {\FSUBSTR(\M(_Reply),1,1)} {Y} GOTO FNameOK, -    ; not...
  189. :GetFName, ASK _FName {File to send: }, GOTO ChkFName, - ; Validate with
  190. :FNameOK, IF NOT EXIST \M(_FName) GOTO GetFName, -       ; acknowledge &
  191. OPEN READ \M(_FName), -                                  ; check that it
  192. :NewLine, -                                              ; does exists.
  193. DEF ChrIndex 1, READ OneLine, IF FAIL GOTO EndType, -    ; Set pointers,
  194. ASSIGN LineEnd \FLENGTH(\M(OneLine)), -                  ; get one line.
  195. INCREMENT LineEnd, - ;GOTO Scan, -                       ; <- THIS is a
  196. SET OUTPUT PACING 2, OUTPUT \M(OneLine), MSLEEP 10, -    ; short & easy
  197. OUTPUT \13, MSLEEP 15, XECHO \10, MSLEEP 45, -           ; macro - jump
  198. IF FAIL STOP 1 * User abort! *, GOTO NewLine, -          ; to this line
  199. :Scan, -                                                 ; <- HERE for
  200. SLEEP 0, IF FAIL STOP 1 * User abort! *, -               ; sending text
  201. IF < \M(ChrIndex) \M(LineEnd) GOTO NewChr, -             ; *1* character
  202. OUTPUT \13, GOTO NewLine, -                              ; at a time...
  203. :NewChr, -                                               ; Initialize
  204. DEF Out$, -                                              ; sub-routine.
  205. ASSIGN \%c \FCODE(\FSUBSTR(\M(OneLine),\M(ChrIndex),1)), - ;
  206. IF = \%c 32 ASSIGN Out$ OUTPUT { }, -                    ; Send output
  207. IF NOT DEF Out$ ASSIGN Out$ OUTPUT \\{D\%c}, -           ; and look for
  208. Out$, INCREMENT ChrIndex, GOTO Scan, -                   ; exceptions...
  209. :EndType, -                                              ; Text-file has
  210. CLOSE READ                                               ; been sent.
  211. ;
  212.  
  213. ; To avoid typing long SET PORT TCP/IP commands, define a macro for each
  214. ; host you usually connect to.  Type the defined name to connect to it!
  215. ;
  216.  
  217. DEF Doc SET PORT TCP/IP bbs.docsplace.org 23 ANSI, -     ; ANSI allows
  218. SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT   ; some drawing.
  219. DEF Juxta SET PORT TCP/IP juxtaposition.dynip.com 23 ANSI, - ; Those two
  220. SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT       ; Relayeurs
  221. DEF Mysteria SET PORT TCP/IP mysteria.dynip.com 23 ANSI, - ; are carying
  222. SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT   ; Canada-Media.
  223. DEF Juge SET PORT TCP/IP juge.com 23 ANSI, -             ; This place is
  224. SET TELNET TERM-TYPE ANSI, SET TELNET NEWLINE RAW, -     ; excellent for
  225. PAUSE 0, IF SUCCESS CONNECT                              ; Kermit D/Ls!
  226. ;
  227. DEF BCN SET PORT TCP/IP bcn.boulder.co.us 23 VT220, -    ; Those ∩┐╜ WEB ∩┐╜
  228. SET TELNET TERM-TYPE VT220, PAUSE 0, IF SUCCESS CONNECT  ; "TelNettable"
  229. DEF Sailor SET PORT TCP/IP sailor.lib.md.us 23 VT220, -  ; browsers do
  230. SET TELNET TERM-TYPE VT220, PAUSE 0, IF SUCCESS CONNECT  ; ∩┐╜ FTP ∩┐╜ also.
  231. DEFINE TRFN SET PORT TCP/IP trfn.clpgh.org 23 VT220, -   ; All of them
  232. SET TELNET TERM-TYPE VT220, PAUSE 0, IF SUCCESS CONNECT  ; got `Kermit'.
  233. ;
  234. DEF IRC SET PORT TCP/IP 193.49.200.149 6677 VT100, -     ; VT100 _IS_
  235. SET TELNET TERM-TYPE VT100, PAUSE 0, IF SUCCESS CONNECT  ; needed here.
  236. ;
  237. DEF AirPower SET PORT TCP/IP airpower.dynip.com 23 ANSI, - ; Now added a
  238. SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT     ; WEB BBS...
  239. ;
  240. DEFINE BBSWorld SET PORT TCP/IP bbs.bbsworld.com 23 ANSI, - ;
  241. SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT      ;
  242. ;
  243. DEFINE ConChBBS SET PORT TCP/IP conchbbs.com 23 ANSI, -  ;
  244. SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT   ;
  245. ;
  246. DEFINE CyberSpace SET PORT TCP/IP cyberspace.org 23 ANSI, - ;
  247. SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT      ;
  248. ;
  249. DEFINE LoneStar SET PORT TCP/IP sdf.lonestar.org 23 ANSI, - ;
  250. SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT      ;
  251. ;
  252. DEF NightMare SET PORT TCP/IP 206.106.145.5 23 ANSI, -   ; A WC-5 BBS...
  253. SET TELNET TERM-TYPE ANSI, SET BLOCK 2, PAUSE 0, IF SUCCESS CONNECT ;
  254. ;
  255. DEFINE SStar SET PORT TCP/IP sstar.com 23 ANSI, -        ;
  256. SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT   ;
  257. ;
  258. DEFINE TFhBBS SET PORT TCP/IP tfhbbs.trends.ca 23 ANSI, - ;
  259. SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT    ;
  260. ;
  261. DEFINE ToltBBS SET PORT TCP/IP toltbbs.com 23 ANSI, -    ;
  262. SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT   ;
  263. ;
  264. DEFINE UnNamedBBS SET PORT TCP/IP unnamedbbs.com 23 ANSI, - ;
  265. SET TELNET TERM-TYPE ANSI, PAUSE 0, IF SUCCESS CONNECT      ;
  266. ;
  267.  
  268. SHOW NET
  269. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::[ EOF ]:
  270.  
  271. [...]
  272.  
  273. Thanks for your attention reading me.  Happy new millenium!...  8-)
  274.  
  275. Michel Samson
  276.  
  277.  
  278. P.S.:  I'm new to this media;  will somebody tell me the real dangers
  279. of disclosing my ~E-Mail~ address and the ways to defeat them?
  280.